inherited dm_excipiente: Tdm_excipiente
  OldCreateOrder = True
  Left = 582
  Top = 317
  Height = 288
  Width = 374
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '    e.COD_EXCIPIENTE,'
      '    e.LIG_COD_FORMA,'
      '    e.LIG_COD_PRODUTO,'
      '    e.LIG_COD_CLASS_TERAPEUTICA,'
      '    e.PADRAO,'
      '    e.SITUACAO,'
      '    e.PERC_DESCTO_VOLUME,'
      '    e.DATA_CAD,'
      '    e.DATA_ALTERACAO,'
      '    case'
      '      when e.padrao = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as PADRAO_DESC,'
      '    case'
      '      when e.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as SITUACAO_DESC,'
      '    a.descricao as forma,'
      '    b.descricao ||'#39'/'#39'|| b.apresentacao as produto,'
      '    c.descricao as class_terapeutica'
      'from f_excipiente e'
      
        'left join f_forma_farmaceutica a on (a.cod_forma = e.lig_cod_for' +
        'ma)'
      'left join produto b on (b.cod_produto = e.lig_cod_produto)'
      
        'left join f_classificacao_terapeutica c on (c.cod_classificacao ' +
        '= e.lig_cod_class_terapeutica)')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_EXCIPIENTE: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_EXCIPIENTE'
      Required = True
    end
    object cdsConsultaLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsConsultaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsConsultaPADRAO: TStringField
      Alignment = taCenter
      FieldName = 'PADRAO'
      Size = 5
    end
    object cdsConsultaPERC_DESCTO_VOLUME: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_DESCTO_VOLUME'
      Precision = 15
      Size = 2
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaPADRAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'PADRAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaFORMA: TStringField
      FieldName = 'FORMA'
      Size = 100
    end
    object cdsConsultaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
    object cdsConsultaCLASS_TERAPEUTICA: TStringField
      FieldName = 'CLASS_TERAPEUTICA'
      Size = 100
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_excipiente,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_EXCIPIENTE: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_EXCIPIENTE'
      Required = True
    end
    object cdsRegistroLIG_COD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsRegistroLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsRegistroLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsRegistroPADRAO: TStringField
      FieldName = 'PADRAO'
      Size = 5
    end
    object cdsRegistroPERC_DESCTO_VOLUME: TFMTBCDField
      Alignment = taCenter
      FieldName = 'PERC_DESCTO_VOLUME'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    COD_EXCIPIENTE,'
      '    LIG_COD_FORMA,'
      '    LIG_COD_PRODUTO,'
      '    LIG_COD_CLASS_TERAPEUTICA,'
      '    PADRAO,'
      '    PERC_DESCTO_VOLUME,'
      '    DATA_CAD,'
      '    DATA_ALTERACAO,'
      '    SITUACAO'
      'from F_EXCIPIENTE e'
      'where e.cod_excipiente = :codigo')
  end
  object spAtualizarPadrao: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_EXCIPIENTE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'EXCIPIENTE_ATUALIZAR_PADRAO'
    Left = 240
    Top = 112
  end
end
